5 REM FOR ROXANE'S SCIENCE FAIR MARCH 1984 - WRITTEN BY FRED LAYBERGER
10 GOTO30
15 FORII=1TO10:FORI=1TO15::POKE646,I
20 PRINTMID$(A$,1,24)"ROXANE'S VOLCANO":NEXTI:NEXTII:RETURN
25 FORI=1TO200:NEXTI:RETURN
30 POKE53280,6:POKE53281,15
35 A$=""
40 PRINT"[147]"A$;
41 PRINT"[151]                                       ";:POKE2023,160:POKE56295,11
42 FORI=24TO23STEP-1:PRINTMID$(A$,1,I);:FORII=0TO39:PRINT" [146]";:NEXTII:NEXTI
45 FORI=22TO16STEP-1:PRINTMID$(A$,1,I);:FORII=0TO39:PRINT" [146]";:NEXTII:NEXTI
50 FORI=15TO0STEP-1:PRINTMID$(A$,1,I);:FORII=0TO39:PRINT"[154] [146]";:NEXTII:NEXTI
51 POKE53281,11
55 PRINTMID$(A$,1,22)"[169]                                [223]"
60 PRINTMID$(A$,1,21)"[169]                              [223]"
65 PRINTMID$(A$,1,20)"[169]                            [223]"
70 PRINTMID$(A$,1,19)"[169]                          [223]"
75 PRINTMID$(A$,1,18)"[169]                        [223]"
80 PRINTMID$(A$,1,17)"[169]                      [223]"
85 PRINTMID$(A$,1,16)"[169]                    [223]"
90 PRINTMID$(A$,1,15)"[169]                  [223]"
95 PRINTMID$(A$,1,15)"[154][169]                  [223]"
100 PRINTMID$(A$,1,14)"[169]                [223]"
105 PRINTMID$(A$,1,13)"[169]              [223]"
110 PRINTMID$(A$,1,12)"[169]            [223]"
115 PRINTMID$(A$,1,11)"[169]          [223]"
120 PRINTMID$(A$,1,10)"[169]        [223]"
125 PRINTMID$(A$,1,9)"[169]      [223]"
130 PRINTMID$(A$,1,8)"[169]    [223]"
135 GOSUB15
140 FORI=1TO500:NEXTI
145 FORII=1TO5:FORI=1TO15:POKE53281,I:NEXTI:NEXTII:POKE53281,11
150 PRINTMID$(A$,1,25)"[169]                       [223][146]";
155 PRINTMID$(A$,1,24)"[169]                  [223][146]";
160 PRINTMID$(A$,1,23)"[169]            [223][146]";
165 FORI=22TO8STEP-1:PRINTMID$(A$,1,I);
170 FORX=1TO100:NEXTX
175 PRINT"    [146]":NEXTI
180 FORX=0TO15:POKE53281,X:NEXTX:POKE53281,11
185 PRINT"[145]*    *"
190 PRINT"*      *"
195 GOSUB25:PRINTMID$(A$,1,8)"**"
200 GOSUB25:PRINTMID$(A$,1,7)"***"
205 GOSUB25:PRINTMID$(A$,1,6)"****"
210 GOSUB25:PRINTMID$(A$,1,5)"**[157]**"
215 GOSUB25:PRINTMID$(A$,1,4)"*****"
220 GOSUB25:PRINTMID$(A$,1,3)"******"
225 GOSUB25:PRINTMID$(A$,1,2)"*****"
230 GOSUB15
235 FORI=1TO500:NEXTI:GOTO30